home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / clue.lha / clue / clue.l < prev    next >
Text File  |  1989-07-12  |  1KB  |  56 lines
  1. ;;; -*- Mode:Lisp; Package:USER; Syntax:COMMON-LISP; Base:10; Lowercase:T -*-
  2.  
  3. ;;; Make the CLUE and CLUEI packages
  4.  
  5. ;;;
  6. ;;;             TEXAS INSTRUMENTS INCORPORATED
  7. ;;;                  P.O. BOX 2909
  8. ;;;                   AUSTIN, TEXAS 78769
  9. ;;;
  10. ;;; Copyright (C) 1988 Texas Instruments Incorporated.
  11. ;;;
  12. ;;; Permission is granted to any individual or institution to use, copy, modify,
  13. ;;; and distribute this software, provided that this complete copyright and
  14. ;;; permission notice is maintained, intact, in all copies and supporting
  15. ;;; documentation.
  16. ;;;
  17. ;;; Texas Instruments Incorporated provides this software "as is" without
  18. ;;; express or implied warranty.
  19. ;;;
  20.  
  21. (in-package 'user)
  22.  
  23. (unless (find-package 'xlib)
  24.   #-explorer
  25.   (error "CLX must be loaded before making CLUE.")
  26.   #+explorer
  27.   (make-system 'clx :noconfirm))
  28.  
  29. ;;
  30. ;; Make packages
  31. ;;
  32. ;;    The intrinsics are in a seperate package
  33. (unless (find-package 'cluei)
  34.   (make-package 'cluei
  35.         :use '(lisp xlib)))
  36.  
  37. ;;    Contacts go in clue:
  38. (unless (find-package 'clue)
  39.   (make-package 'clue
  40.         :use '(lisp xlib cluei)))
  41.  
  42. ;;
  43. ;; Ensure CLUE and CLUEI use a CLOS
  44. ;;
  45. (cond ((find-symbol "DEFCLASS" 'cluei)) ;; clos-kludge must be around      
  46.  
  47.       ((find-package 'clos)
  48.        (USE-PACKAGE 'clos 'cluei)
  49.        (USE-PACKAGE 'clos 'clue))
  50.  
  51.       ((find-package 'pcl)
  52.        (USE-PACKAGE 'pcl 'cluei)
  53.        (USE-PACKAGE 'pcl 'clue))
  54.  
  55.       (t (error "CLOS must be loaded before making CLUE.")))
  56.